ggmap(map_nyc, extent = "device") + 
  geom_point(aes(x=park_f$lng, 
                 y=park_f$lat),
             data=park_f, col="red", size=1)+
  ggtitle("Park")

ggmap(map_nyc, extent = "device") + 
  geom_point(aes(x=restaurant_f$lng, 
                 y=restaurant_f$lat),
             data=restaurant_f, col="red", size=1)+
  ggtitle("Restaurant")

ggmap(map_nyc, extent = "device") + 
  geom_point(aes(x=police_f$lng, 
                 y=police_f$lat),
             data=police_f, col="red", size=1)+
  ggtitle("Police")

ggmap(map_nyc, extent = "device") + 
  geom_point(aes(x=school_f$lng, 
                 y=school_f$lat),
             data=school_f, col="red", size=1)+
  ggtitle("School")